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Computing and Investigating Permutation Characters 

Saad Owaid Bedaiwi, Maroa Salah AL-shammery 


Abstract — This work splits into two parts; in the first we 
present three actions and formulate them into GAP's codes, then 
we compute and investigate the associated permutation 
representations and its characters "permutation characters". In 
the second part, with the aid of the Meataxe GAP's package, we 
present a method and algorithm for investigating irreducible 
and permutation characters for a specific kinds of finite groups. 

Index Terms — Permutation Characters, Meat Axe, GAP 


I. INTRODUCTION 

Recall that a representation of a group G on a set S is a 
homomorphism p • G -* Aufr(5) , when S is a vector space 
it's called linear representation and if S is just a set, called 
permutation representation, p defines a G-set structure on S 
by the map G X S S f p(g)(s) .Permutation 

characters can be considered as powerful tool to extract 
information about subgroups of a given group. 

T. Breuer and G. Pfeiffer [3], describe three deferent methods 
to compute all those characters of a finite group that have 
certain properties of transitive permutation characters. In our 
work, we present three actions mentioned in [2], and 
formulate them into GAP's codes, then we compute and 
investigate the associated permutation 
representations and its permutation characters. Also, with the 
aid of the Meataxe GAP's package [5], we present a method 
and algorithm for investigating irreducible and permutation 
characters for a specific kinds of finite groups. 


II. Permutation Characters 

A. Actions under investigation 

Let S n be the symmetric group on n symbols. Throughout this 
work, we consider the following actions with the associated 
permutation representations, provided that, they defined over 
an arbitrary field K, see [2] for more details. 

(I) The representation associated to the conjugacy action of 
5 n on the subset M ^GL n {lC) defined by: 

a.M = crMu -1 where u E S n . is called the 

conjugacy representation of S n and will denoted by Pq . 

(II) Let G be subgroup of S n X S n , then G act on 
Me GL n (K ) by 

= aMo -1 for (a f a) E G f denote by 
Pi for the associated permutation representation. 

(III) Let G be a subgroup 

of (5 k X X (5 fe X S n _ then G is act on 
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M^GL n (lC) by 

la } o).M = aMc r _1 wfeere {a } o) E G f denote 
by p 2 the associated permutation representation. 


B. Definition [3]: Let G be any group act on a set S and p is 

the corresponding permutation representation. The map 
T: G —) K, defined by: 

= Order(Fix s (g )) = Order{s G S;sg = 

s}. 

is called the permutation character of G on 5. 

C. Remark: 

1. One can embed the symmetric group S rz in the general 
linear group GL n (K ), by identify any permutation 


o E 5,, with the matrix: 


Mm - {„ 


i = 

otherwise . 

Which means permuting rows of the identity matrix. 

2. All our computations are made utilizing the group algebra 
system GAP, see [5]. 

Our aim in this paper to compute the permutation character 
induced from the permutation representations: conjugacy 

representation Pq , p^ and p 2 , for a finite groups curry out 
properties listed in tables below. Our computations are 
divided into three cases: 


Case I: Find the permutation character of a finite group D 
with properties as listed in table (1) via the conjugacy action 
(I) on S1:=D, S2:= derived subgroup of D. K:= GF(p) (the 
Galois field where p:=prime in particular p=7 ). 

# Constructing the finite groups with the required properties. 


gap>alsma:=AllSmallGroups(n, certain properties as 

specified);; 

gap>iso:=IsomorphismPermGroup(alsma[i]); #for i in 

[L.Size(alsma)] 

gap> H:=Image(iso);D:=H;; 

gap> gen:= GeneratorsOfGroup(D);; 

gap> L:=List(gen, 

>g->PermutationMat(g,n,GF(K)));; 
gap> groumat:=GroupWithGenerators(L); 
gap> S1 :=groumat;; 
gap> S2:=DerivedSubgroup(groumat); 


# Constructing the conjugacy action. 


gap> action l:=function(a,g) 

> local m; 

> m:=List(a,x->Permuted(x,g)); 

> m:=Permuted(m,g A -l); 

>m:=ImmutableMatrix(DefaultFieldOfMatrix(a),>m); # for 
efficiency make compact 

> return m; 

> end; 

function( a, g )... end 
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# Computing the permutation character. 

gap> PermutationCharacter(D,S 1,action 1); 
gap> PermutationCharacter(D,S2,action 1); 

D. Example. 

A finite group of order 6 which has the properties: 
non-abelian, solvable and non-perfect. 

gap>alsma:=AllSmallGroups(6,IsAbelian, 

>false,IsSolvable,true,IsPerfect,false);; 
gap>iso:=IsomorphismPermGroup(alsma[ 1 ]); 

<action isomorphism> 
gap> H:=Image(iso);;D:=H;; 
gap> gen:= GeneratorsOfGroup(D);; 
gap> L:=List(gen, 

>g->PermutationMat(g, 6, GF (7)));; 
gap> groumat:=GroupWithGenerators(L); 

<matrix group with 2 generators> 

gap> S1 :=groumat;; 

gap> S2:=Deri vedSubgroup(groumat); 

<group of 6x6 matrices over GF(7)> 
gap> PermutationCharacter(D,S 1,action 1); 
Character(CharacterTable(Group([(l,2)(3,6)(4,5),(l,3,5)(2,4 
,6) ])),[ 6, 2, 3 ] ) 

gap> PermutationCharacter(D,S2,action 1); 
Character(CharacterTable(Group([(l,2)(3,6)(4,5),(l,3,5)(2,4 
,6)])),[3, 1,0]) 

gap> perm 1:=Action(D, S1, action 1);; 

gap># check if the action #is transitive, compute its 
transitivity degree. 

gap>IsTransitive(perm 1); Transitivity(perm 1); 

false 

0 

gap> perm2:=Action(D, S 2, ac tion 1);; 
gap>IsT ransiti ve(perm2); T ransiti vity (perm2); 
true 
3 

If we run the above GAP code on different kinds of groups 
having multiple properties, we have results displayed as 
shown in table (1). Note that we denote by tran and No.tran to 
check whether action 1 is transitive, the degree of the 
transitivity respectively. 


Table (1) 


f??| Abelian 

Solvable 

Perfect 

S 

PermMm character 

Is tran 


6 

NO 

YES 

NO 

m 

[6,2,3] 

NO 

1) 

6 

NO 

YES 

NO 

m 

[3,1,0] 

YES 

3 

60 

NO 

NO 

YES 

m 

[603,4 : 5,5] 

NO 

0 

60 

NO 

NO 

YES 

m 

|603 4 : 5 : 5] 

NO 

0 

120 

NO 

NO 

NO 

m. 

[120.12,6.8,4,6,5] 

NO 

1) 

120 

NO 

NO 

NO 


[60,63,42,3,5] 

NO 

0 


Case II: Find the permutation character of a finite group 
D = H X H with properties as listed in table (2) via the 
permutation action (II) on S1:=D, S2:=H. K:= GF(p). 

# Constructing the finite groups with the required properties. 


gap>alsma:=AHSmallGroups(n, certain properties as 

specified);; 

gap>iso:=IsomorphismPermGroup(alsma[i]); #for i in 

[l..Size(alsma)] 

gap> H:=Image(iso);; 

gap> D:=DirectProduct(H,H);; Size(D); 

gap> gen:= GeneratorsOfGroup(D);; 

gap>L:=List(gen, 

>g->PermutationMat (g,Size(D);,GF(p)));; 
gap> groumat:=GroupWithGenerators(L); 
gap> S1 :=groumat;; 
gap> genH:= GeneratorsOfGroup(H);; 
gap>LH:=List(genH, 
>g->PermutationMat(g,Size(H),GF(p)));; 
gap> groumatH:=Group WithGenerators(LH); 
gap> S2:=groumatH;; 

gap> pl:=Projection(D,l); # decompose an element in its 
parts 

gap> p2:=Projection(D,2); 

# Constructing the permutation action (II). 

gap> action2:=function(a,pair) 

> local m,g; 

>g:=Image(p 1 ,pair); 

> m:=List(a,x->Permuted(x,g)); 

> m:=Permuted(m,Image(p2,pair) A -1); 
>m:=ImmutableMatrix(DefaultFieldOfMatrix(a) 

>,m); # for efficiency compact 

> return m; 

> end; 

function( a, pair ) ... end 
#Computing the permutation character. 

gap> PermutationCharacter(D,S 1 ,action2); 
gap> PermutationCharacter(D, S 2, action2); 
gap> perml:=Action(D,Omgl,action2);; 
gap>IsT ransiti ve(perm 1); T ransiti vity (perm 1); 
gap> perm2:=Action(D, S 2,action2);; 
gap>IsT ransiti ve(perm2); T ransiti vity (perm2); 

If we run the above GAP code on different kinds of groups 
having multiple properties, we have results displayed as 
shown in table (2). 

Table (2) 



Case III: Find a permutation character of D — M X jV, 
where M and N are finite groups such that: 

I M | = 4, |A T | = 4 — m , abelian , solvable and 
non-perfect. The permutation action (III) on S:=D, K: = 
GF(13). 

# Constructing the finite group with the required properties. 

gap>alsma:=AHSmallGroups(4,IsAbelian,true,IsSolvable,tru 

e, 
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>IsPerfect,false); 

[ <pc group of size 4 with 2 generators>, <pc group of size 4 
with 2 generators> ] 

gap> iso:=IsomorphismPermGroup(alsma[2]); 

[ fl, f2 ] -> [ (1,2), (3,4)] 
gap> H:=Image(iso);; 

gap> rows:=Tuples([0,1 ],4);;zerooone:=Tuples(rows,4);; 
gap> m:=3; ;stb:=Stabilizer(H,[ 1..m],OnSets); 

Group([ (1,2) ]) 

gap> D:=DirectProduct(stb,stb); 

Group([ (1,2), (3,4)]) 
gap> pl:=Projection(G,l); 

1st projection of Group([ (1,2), (3,4) ]) 
gap> p2:=Projection(G,2); 

2nd projection of Group([ (1,2), (3,4) ]) 

# Constructing the permutation action (III). 

gap> gen:= GeneratorsOfGroup(D);; 
gap>L:=List(gen,g- >PermutationMat(g,4,GF(13)));; 
gap> genter:=GroupWithGenerators(L); 

<matrix group with 2 generators> 
gap> S:=genter;; 

gap> perm:=Action(G,S,action2); 

Group([ (1,3)(2,4), (1,3)(2,4) ]) 

gap> IsTransitive(perm); Transitivity (perm); 

false 

0 

gap> PermutationCharacter(G, S,action2); 

Character( CharacterTable( Group([ (1,2), (3,4) ])),[ 4, 0, 0, 4 

]) 

III. Computing and investigating permutation characters 
The permutation character of a transitive action is called a 
transitive permutation character. With the aid of the GAP's 
Package Meat Axe [5] we investigate the permutation 
characters of some finite groups which are listed in table (3) 
with their sizes and properties. 

A. Lemma [6]: Let G be any group, if T is a transitive 

permutation character then: 

a) T is a character of G. 

b) t(jO > 0,Vg E G. 

c) t( 1) divides |G|. 

d) t(# k ) > t (g), for gEG and integers Tt. 

e) < r, 1 lT >= 1. 

f) the multiplicity of 'ip E Rat(G) as a constituent of 7T is 
at most 

g) T t.<£? j = o if the order of g does not divide | G \ , 

h) T(l).litf c (ff}[ divides |G | for all gEG. 

The character T with the properties of Lemma (2.1) is called a 

possible permutation character of G . The following is a 
procedure to list possible permutation characters. 

B. The Combinatorial Approach Method [7]: 


This method builds up a reasonably small set of possible 
permutation characters. The obtained set satisfies some of the 
conditions stated in Lemma (2.1) which use the bounds on 
coefficients of rationally irreducible characters given by 
branch (f). 


C. Algorithm [4]: 

Let Irr(G) = = Z^* ■■■ .• Z... } be the set of all 

irreducible characters of a given group G, fix a degree d that 
divides IG | _ By successively choosing coefficients for 
E. = 1,2, r n r all coefficients vectors ... ^ fl f , ) 


0 < a t < min 




< Zi’Z t >’ 




- 


r 


for i = 2 r 

and 27 =i = d. 


For each such vector, the character satisfies conditions (a), 
(c), (e), and (f) of Lemma (2.1), and we can check the other 
conditions. Moreover, every true permutation character of 

G of degree d occurs among these. 

In the table (3) the following notations are used: the numbers 
of conjugacy classes of elements 


No. C c O), the number of rational classes No. Rat(C'), 

the number of possible permutation characters No.T(g'), 
the number of conjugacy classes of subgroups 
No t C g (H) where H subgroup of G , the numbers of 
transitive permutation characters No.tra t(^) , the 
structure description of the group G stru (G), the numbers 
of absolutely irreducible characters of G over a field K 
No. absol ( Gj f the numbers of irreducible characters 
of G over & No, /rr^ ( G}. 

Let us started with an example of a group of size 6, which is 
non-abelian, solvable and non-perfect. 


D. Example 

gap> alsma:=AHSmallGroups(6,IsAbelian, 
>false,IsSolvable, true, IsPerfect, false); 

[ <pc group of size 6 with 2 generators> ] 
gap> iso:=IsomorphismPermGroup(alsma[ 1 ]);; 
gap> G:=Image(iso);; 
gap> NrConjugacyClasses(G); 

3 

gap> RationalClasses( G );;Size(RationalClasses( G )); 
3 

gap> tbl:=CharacterTable(G);; 
gap> Display(tbl); 

CT1 


2 11 . 

3 1.1 

la 2a 3a 
2P la la 3a 
3P la 2a la 
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X.l 111 
X.2 1 -1 1 

X.3 2 . -1 

gap> PermChars( tbl);;Size(PermChars( tbl)); 

4 

gap> ConjugacyClassesSubgroups(G);; 
gap>Size(ConjugacyClassesSubgroups( G)); 

4 

gap> tom:=TableOlMarks(G); ;Display(tom); 

1 : 6 
2: 3 1 
3: 2.2 
4: 1111 

gap> PermCharsTom( tbl, 

>tom );;Size(PermCharsTom( tbl, tom )); 

4 

gap> StructureDescription( G); 

"S3" 

Construct the permutation module of G over GF(p) where 

p = 7. 

gap> K:=GF(7);;module := PermutationGModule(G,K); 
rec( dimension := 6, field := GF(7), generators := [ < 
immutable compressed matrix 6x6 over GF(7) >, 

< immutable compressed matrix 6x6 over GF(7) > ], 
isMTXModule := true) 

gap> COF := MTX.CollectedFactors( module ); 

[ [ rec( Is Absolutely Irreducible := true, Islrreducible := 
true,dimension := 1,field := GF(7),generators := [ [ [ Z(7) A 0 ] 
], [ [ Z(7) A 0 ] ] ], isMTXModule := true,smashMeataxe := rec( 
algebraElement := [ [ [ 1, 2 ], [ 1, 2 ] ], [ Z(7) A 3, Z(7) A 5, 
Z(7) A 2, Z(7) A 2 ] ],algebraElementMatrix:=[[Z(7) A 0] 

],characteristicPolynomial := x_l-Z(7) A 0,charpolFactors := 
x_l-Z(7) A 0, degreeFieldExt := 1, ndimFlag := 1, 

nullspaceVector := [ Z(7) A 0 ] ) ), 1 ],[ rec( Islrreducible := 
true, dimension := 1, field := GF(7), generators := [ [ [ Z(7) A 3 
] ], [ [ Z(7) A 0 ] ] ],isMTXModule := true,smashMeataxe := 
rec( algebraElement := [ [ [ 1, 2 ], [ 3, 1 ] ], [ Z(7) A 3, Z(7), 
0*Z(7), Z(7) A 3 ] ],algebraElementMatrix := [[ Z(7) ] ], 
characteristicPolynomial := x_l+Z(7) A 4,charpolFactors := 
x_l+Z(7) A 4, ndimFlag := 1, nullspace Vector := [ Z(7) A 0 ])), 
1 ],[ rec( IsAbsolutelylrreducible := true,Islrreducible := true, 
dimension := 2, field := GF(7),generators := [ [ [ Z(7) A 0, 
0*Z(7) ], [ Z(7) A 3, Z(7) A 3 ] ], [ [ 0*Z(7), Z(7) A 0 ], [ Z(7) A 3, 
Z(7) A 3 ] ] ],isMTXModule := true, smashMeataxe := rec( 
algebraElement := [ [ [ 2, 1 ] ], [ Z(7) A 0, Z(7) A 0, Z(7) A 3 ] 
LalgebraElementMatrix := [ [ Z(7) A 2, Z(7) A 2 ], [ Z(7) A 5, 
Z(7) A 4 ] ],characteristicPolynomial := x_l A 2+x_l+Z(7) A 5, 
charpolFactors := x_l+Z(7) A 2, degreeFieldExt := 1,ndimFlag 
:= 1, nullspace Vector := [ Z(7) A 4, Z(7) A 0 ] )), 2 ] ] 
gap> List( cf, 

>x -> MTX.IsAbsolutelyIrreducible(x[l])); 

[ true,true, true] 

gap> List( cf, x -> MTX.IsIrreducible(x[l])); 

[ true, true, true ] 

Table (3) 


6 

NO 

YES 

NO 

3 

3 

4 

4 

4 


7 

3 

24 

NO 

YES 

NO 

12 

9 

16 

16 

16 

X ?? 3 

6 

9 

80 

NO 

YES 

NO 

26 

11 

20 

20 

20 


10 

16 

60 

NO 

YES 

NO 

30 

10 

12 

12 

12 

X (?? 3 :??4)] 

4 

3 

120 

NO 

NO 

NO 

7 

7 

19 

19 

19 


2 

2 

144 

NO 

YES 

NO 

48 

16 

33 

33 

33 

?? 8 x?? 18 1 

12 

24 

168 

NO 

NO 

YES 

6 

5 

12 

15 

15 

??????( 3,2) 

7 

2 

240 

NO 

NO 

NO 

18 

14 

31 

31 

31 

?? 2 X V. 7?(2,5) 

4 

5 

360 

NO 

NO 

NO 

21 

14 

41 

41 

41 

7 h X ?? 5 

3 

3 

360 

NO 

NO 

YES 

7 

6 

22 

22 

22 

" 6 J 

7 

2 

720 

NO 

NO 

NO 

24 

19 

78 

79 

79 

7>V. 2,4 : V A 

6 

6 

1500 

NO 

NO 

NO 1 

125 

14 

31 1 

13 

13 

?? 2 5 X ?? 5 

2 

4 


Appendix 

• The Meataxe algorithm 

The Meat-axe is a fundamental tool in computational 
representation theory, most often used to test irreducibility of 
a finite matrix group or algebra, and in the case of reducibility 
to construct an invariant subspace. A number of versions have 
been described in the literature, first by R. Parker [7] in 1984 
and later by other [8,9] The implementations of the Meat-axe 
in the computer algebra systems GAP and MAGMA [11] are 
based on the version of D. F. Holt and S. Rees [10]. 
Algorithm: 

We assume that K is a field and 0: ^4 —> K nX is a matrix 
representation with representation module t' F : = K ". 

Input: An Yt -dimensional matrix representation 0 of A in 
terms of matrices 

[ a^ := o ... .. a k 0(a k )) for a generating 

system (p± f — .. of A 

Output: Either the information that 5 is irreducible, or 
matrix representations of A on an ^4-submodule W and on 
the factor module V / V given by matrices for the generating 
system (.... , a k ) of A. 
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